home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / mui32dev.lha / MUI / Developer / Modula / txt / MuiD.mod < prev    next >
Text File  |  1995-12-15  |  2KB  |  69 lines
  1. IMPLEMENTATION MODULE MuiD;
  2.  
  3. (* Implementation-Module for MuiD
  4. ** done in 1993 by Christian "Kochtopf" Scholz
  5. **
  6. ** updated in 1995 by Olaf "Olf" Peters
  7. *)
  8.  
  9.  
  10.         PROCEDURE mvWindowTopEdgeDelta(p:LONGINT): LONGINT;
  11.             BEGIN;
  12.                RETURN (-3-(p));
  13.             END mvWindowTopEdgeDelta;
  14.         PROCEDURE mvWindowWidthMinMax(p:LONGINT): LONGINT;
  15.             BEGIN;
  16.                RETURN (0-(p)); 
  17.             END mvWindowWidthMinMax;
  18.         PROCEDURE mvWindowWidthVisible(p:LONGINT): LONGINT; 
  19.             BEGIN; 
  20.                RETURN (-100-(p)); 
  21.             END mvWindowWidthVisible;
  22.         PROCEDURE mvWindowWidthScreen(p:LONGINT): LONGINT; 
  23.             BEGIN; 
  24.                RETURN (-200-(p)); 
  25.             END mvWindowWidthScreen;
  26.         PROCEDURE mvWindowHeightMinMax(p:LONGINT): LONGINT; 
  27.             BEGIN; 
  28.                RETURN (0-(p)); 
  29.             END mvWindowHeightMinMax;
  30.         PROCEDURE mvWindowHeightVisible(p:LONGINT): LONGINT; 
  31.             BEGIN; 
  32.                RETURN (-100-(p)); 
  33.             END mvWindowHeightVisible;
  34.         PROCEDURE mvWindowHeightScreen(p:LONGINT): LONGINT; 
  35.             BEGIN; 
  36.                RETURN (-200-(p)); 
  37.             END mvWindowHeightScreen;
  38.         PROCEDURE mvWindowAltTopEdgeDelta(p:LONGINT): LONGINT; 
  39.             BEGIN; 
  40.                RETURN (-3-(p)); 
  41.             END mvWindowAltTopEdgeDelta ;
  42.         PROCEDURE mvWindowAltWidthMinMax(p:LONGINT): LONGINT; 
  43.             BEGIN; 
  44.                RETURN (0-(p)); 
  45.             END mvWindowAltWidthMinMax;
  46.         PROCEDURE mvWindowAltWidthVisible(p:LONGINT): LONGINT; 
  47.             BEGIN; 
  48.                RETURN (-100-(p)); 
  49.             END mvWindowAltWidthVisible;
  50.         PROCEDURE mvWindowAltWidthScreen(p:LONGINT): LONGINT; 
  51.             BEGIN; 
  52.                RETURN (-200-(p));
  53.             END mvWindowAltWidthScreen;
  54.         PROCEDURE mvWindowAltHeightMinMax(p:LONGINT): LONGINT; 
  55.             BEGIN; 
  56.                RETURN (0-(p))
  57.             END mvWindowAltHeightMinMax;
  58.         PROCEDURE mvWindowAltHeightVisible(p:LONGINT): LONGINT; 
  59.             BEGIN; 
  60.                RETURN (-100-(p))
  61.             END mvWindowAltHeightVisible;
  62.         PROCEDURE mvWindowAltHeightScreen(p:LONGINT): LONGINT; 
  63.             BEGIN; 
  64.                RETURN (-200-(p))
  65.             END mvWindowAltHeightScreen;
  66.  
  67.  
  68. END MuiD.
  69.